10 REM ***************   APPLICATIONS 4.0   *****************

12 SCREEN 9, 1' SET SCREEN TO PLOT FUNCTION

14 INPUT "NUMBER OF TERMS"; N' GET NUMBER OF HARMONICS TO SUM

16 M = 2 * INT((N + 1) / 2): DPS = 1024' INC. FOR N AND # DATA POINTS

20 PI = 3.141592653589793#: X0 = 20: Y0 = 150' X,Y PLOT ORIGIN

22 CLS : LINE (X0, 20)-(X0, 300)' DRAW X,Y AXES

24 LINE (X0, Y0)-(630, Y0)

26 LINE (X0, Y0)-(X0, Y0)' SET PEN TO ORIGIN

30 FOR I = 0 TO 2 * PI + .01 STEP PI / DPS' SOLVE FOR DATA POINTS

32 Y = 0' INITIALIZE ACCUMULATOR

40 FOR J = 1 TO N STEP 2: Y = Y + SIN(J * I) / J: NEXT J' SUM HARMONICS

50 LINE -(X0 + 96 * I, Y0 - CINT(100 * Y))' PLOT DATA POINT

60 NEXT I' NEXT DATA POINT

62 LOCATE 22, 10: PRINT "N = "; N' NUMBER OF HARMONICS SUMMED

64 INPUT "AGAIN"; A$' INC. # HARMONICS AND DO AGAIN?

66 IF A$ <> "N" AND A$ <> "n" THEN N = N + M: GOTO 22

70 END



